home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / fido / GMS_1_1_85.lha / GMS / Rexx / GMS_runMailer.rexx < prev    next >
OS/2 REXX Batch file  |  1995-10-10  |  796b  |  48 lines
  1. /*
  2.  * $VER: GMS_RunMailer.rexx 1.1 (9.4.95)
  3.  *
  4.  */
  5.  
  6. options results
  7. signal on error
  8. signal on syntax
  9.  
  10. parse arg gms_line
  11.  
  12. if( ~show( 'l', "gms_mailer_rexx.library" ) ) then
  13. do
  14.    if( ~addlib( "gms_mailer_rexx.library", 0, -30, 0 ) )then
  15.    do
  16.       say "Could not open gms_mailer_rexx.library"
  17.       exit 10
  18.    end
  19. end
  20.  
  21. if gms_line == '' then signal Usage
  22.  
  23. call GMS_Mailer_System_Alloc('gms_mailer', gms_line, 'new')
  24.  
  25. call GMS_Mailer_System_Free('gms_mailer')
  26.  
  27. call GMS_Mailer_FreeScriptData()
  28. exit 0
  29.  
  30. Usage:
  31.  
  32. say 'Usage: rx GMS_RunMailer[.rexx] <line num> '
  33.  
  34. call GMS_Mailer_FreeScriptData()
  35. exit 0
  36.  
  37. error:
  38. syntax:
  39.  
  40. error_text = GMS_Mailer_LastError()
  41.  
  42. if error_text = '' then error_text = rc ErrorText( rc )
  43.  
  44. say '| ***BREAK: error at' sigl error_text
  45.  
  46. call GMS_Mailer_FreeScriptData()
  47. exit rc
  48.